Chip 1998 March/Chip_1998-03_cd.bin/oddech/RELAXACE/APLIKACE/UVOD/UVOD.DXR/00048_Ovladani jazyk.ls

Text File | 1998-01-12 | 1.0 KB | 43 lines

property Klid, Najezd, Znacka

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Klid, [#comment: "Klid:", #format: #member, #default: EMPTY])
  addProp(description, #Najezd, [#comment: "Najezd:", #format: #member, #default: EMPTY])
  addProp(description, #Znacka, [#comment: "Znacka:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set the member of sprite the spriteNum of me to member Klid
end

on endSprite me
  set the visible of sprite the spriteNum of me to 1
end

on mouseEnter me
  puppetSound(1, member "Najezd")
  set the cursor of sprite the spriteNum of me to [59, 60]
  set the member of sprite the spriteNum of me to member Najezd
end

on mouseLeave me
  set the member of sprite the spriteNum of me to member Klid
end

on mouseDown me
  puppetSound(1, member "Klik")
  repeat while soundBusy(1)
  end repeat
end

on mouseUp me
  go(Znacka)
end